home *** CD-ROM | disk | FTP | other *** search
/ Super League / Super League.iso / TELFNICA / INFO / EMPRESAS.DIR / 00025.ls < prev    next >
Encoding:
Text File  |  1997-04-23  |  1.2 KB  |  62 lines
  1. on boton
  2.   repeat with n = 30 down to 12
  3.     puppetSprite(n, 1)
  4.     if rollOver(n) = 1 then
  5.       set the castNum of sprite n to n + 90
  6.     end if
  7.     if rollOver(n) = 0 then
  8.       puppetSprite(n, 0)
  9.     end if
  10.   end repeat
  11. end
  12.  
  13. on negativo
  14.   set i to the frame
  15.   set h to (i - 11) * 2
  16.   repeat with n = 38 down to 35
  17.     puppetSprite(n, 1)
  18.     if rollOver(n) = 1 then
  19.       set the castNum of sprite n to n + 165 + h
  20.     end if
  21.     if rollOver(n) = 0 then
  22.       puppetSprite(n, 0)
  23.     end if
  24.   end repeat
  25. end
  26.  
  27. on negsis
  28.   repeat with w = 38 down to 35
  29.     puppetSprite(w, 1)
  30.     if rollOver(w) = 1 then
  31.       set the castNum of sprite w to w + 201
  32.     end if
  33.     if rollOver(w) = 0 then
  34.       puppetSprite(w, 0)
  35.     end if
  36.   end repeat
  37. end
  38.  
  39. on negtem
  40.   repeat with w = 38 down to 35
  41.     puppetSprite(w, 1)
  42.     if rollOver(w) = 1 then
  43.       set the castNum of sprite w to w + 205
  44.     end if
  45.     if rollOver(w) = 0 then
  46.       puppetSprite(w, 0)
  47.     end if
  48.   end repeat
  49. end
  50.  
  51. on negvideo
  52.   repeat with n = 38 down to 35
  53.     puppetSprite(n, 1)
  54.     if rollOver(n) = 1 then
  55.       set the castNum of sprite n to n + 193
  56.     end if
  57.     if rollOver(n) = 0 then
  58.       puppetSprite(n, 0)
  59.     end if
  60.   end repeat
  61. end
  62.